home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOSPRO4.DMS / in.adf / Tutorials / Interface / Communication.AMOS / Communication.amosSourceCode
Encoding:
AMOS Source Code  |  1992-09-28  |  2.3 KB  |  59 lines
  1. '************************************* 
  2. '*    AMOS Professional Interface    * 
  3. '*                                   * 
  4. '*     Communicating with Basic      * 
  5. '*                                   * 
  6. '*      (c) Europress Software       * 
  7. '*                                   * 
  8. '*          Ronnie Simpson           * 
  9. '************************************* 
  10. '
  11. Load "AMOSPro_Tutorial:Tutorials/Interface/Example_resource.abk"
  12. Resource Bank 16
  13. Resource Screen Open 0,640,200,0
  14. Flash Off : Curs Off : Cls 0
  15. Palette ,,,,$534,$978,$DBC,$FFF
  16. Wait Vbl 
  17. A$=A$+"BUtton   1,XB40+,18,56,14,0,0,1;[UN0,0,BP45+;PR12,3,'QUIT',8;][BR0;BQ;]"
  18. A$=A$+"BUtton   2,XB,18,56,14,0,0,1;[UN0,0,BP49+;PR12,3,'Line',8;][SetVar2,2VA1+;BR0;]"
  19. A$=A$+"BUtton   3,XB,18,56,14,0,0,1;[UN0,0,BP49+;PR16,3,'Bar',8;][SetVar3,3VA1+;BR0;]"
  20. A$=A$+"BUtton   4,XB,18,56,14,0,0,1;[UN0,0,BP49+;PR16,3,'Box',8;][SetVar4,4VA1+;BR0;]"
  21. A$=A$+"LIne     288,4,16,612;"
  22. A$=A$+"LIne     288,20,16,612;"
  23. A$=A$+"LIne     288,36,16,612;"
  24. A$=A$+"EXit;"
  25. B$=B$+"SetVar   2,1VA 0VA# !;"
  26. B$=B$+"SetVar   3,'Changing drawing mode';"
  27. B$=B$+"SIze     3VATW160+,60;"
  28. B$=B$+"BAse     SWidth SX -2/,SHeight SY- 2/;"
  29. B$=B$+"SAve     2;"
  30. B$=B$+"BOx      0,0,1,SX,SY;"
  31. B$=B$+"POutline 3VACX,10,3VA,0,14;"
  32. B$=B$+"PRint    2VACX,YB4+,2VA,1;"
  33. B$=B$+"BUtton   1,SX80-,SY24-,56,14,0,0,1;[UN 0,0,BP47+;PR 20,3,'OK',12;][BQ;]"
  34. B$=B$+"BUtton   1,SX310-,SY24-,56,14,0,0,1;[UN 0,0,BP47+;PR 16,3,'OK',12;][BQ;]"
  35. B$=B$+"RUn      0,3;"
  36. B$=B$+"EXit;"
  37. Dialog Open 1,A$
  38. X=Dialog Run(1)
  39. Ink 7 : Box 0,58 To 639,199
  40. Paper 5 : Pen 4 : M=3 : Set Paint 1
  41. Do 
  42.    If M=2 Then Ink 0,0,Rnd(6)+1 : R1=Rnd(310)+5 : R2=Rnd(128)+60 : Bar R1,R2 To R1+320,R2+3
  43.    If M=3 Then Ink Rnd(7)+8,0,0 : R1=Rnd(500)+5 : R2=Rnd(118)+60 : Bar R1,R2 To R1+80,R2+20
  44.    If M=4 Then Ink 0,,Rnd(7)+8 : R1=Rnd(500)+5 : R2=Rnd(118)+60 : Bar R1,R2 To R1+40,R2+20
  45.    Wait Vbl 
  46.    D=Dialog(1) : Exit If D<0
  47.    On D Gosub BUTTON1,BUTTON2,BUTTON3,BUTTON4
  48.    For V=2 To 4
  49.       Locate 39,V*2-3
  50.       Print "Number of times button";V;" called=";Vdialog(1,V);
  51.    Next 
  52. Loop 
  53. Dialog Close 
  54. Edit 
  55.  
  56. BUTTON1:
  57. BUTTON2: A=Dialog Box(B$,2,"You clicked on button number ") : M=2 : Return 
  58. BUTTON3: A=Dialog Box(B$,3,"You clicked on button number ") : M=3 : Return 
  59. BUTTON4: A=Dialog Box(B$,4,"You clicked on button number ") : M=4 : Return